Xbasic

rsToJSON Function

Syntax

C Result = rsToJSON(rs as SQL::ResultSet [,startRow as N [,rows as N [,flagForceObjectNamesToUppercase as L [,forceToChar as L [,dateTimeFormat as C [,dateFormat as C]]]]]])

Arguments

rsSQL::ResultSet: ResultSet
startRowNumeric: (optional) first row to use
rowsNumeric: (optional) number of rows to use
flagForceObjectNamesToUppercaseLogical: (optional) Uppercase names if .T.
forceToCharLogical: (optional) If .T. (default) single-quote numeric and logical values
dateTimeFormatCharacter: (optional) Format string for dateTime values, as used by the time Function, e.g. "yyyy-MM-dd"
dateFormatCharacter: (optional) Format string for date values, as used by the time Function

Description

Takes an AlphaDAO resultset and converts the data to a JSON object.

Example

dim cn as sql::connection
cn.Open("::Name::Northwind")
cn.Execute("select * from orders")
rs=cn.ResultSet
txt=rsToJSON(rs, -1, 10)
showvar(txt)